<!DOCTYPE html>
<html lang="ja">

<head>
  <meta charset="utf-8">
  <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
  <meta http-equiv="Content-Style-Type" content="text/css">
  <script src='../bbs.js'></script>

  <!-- Global site tag (gtag.js) - Google Analytics -->
  <script async src="https://www.googletagmanager.com/gtag/js?id=UA-120820034-1"></script>

  <link href="../bbs.css" type="text/css" rel="stylesheet">
  <link rel="shortcut icon" href="/favicon.ico">
  <title>非7bit-ASCII文字置換 PerlScript | サクラエディタ過去ログ</title>
</head>
<body>
<ul class="side">
        <a href="./" class="toindex">◀マクロトップへ</a>
        <li><div class="list-title">
    <span class="no">293</span>
    <a class="thread-title" href="293.html#293">非7bit-ASCII文字置換 PerlScript</a></div>
    </li>
    </ul><ul class="main"><li><section><h1 id=293>
    <span class="no">[293]</span>
    <a class="thread-title" href="#293">非7bit-ASCII文字置換 PerlScript</a>
    <span class="author">miau</span>
    <time datetime="2006-07-20T09:24:11">2006年07月20日 09:24</time></h1>
    <div class="body">選択文字列中で 7-bit ASCII 以外の部分を \x80 に置換するマクロです。<br>その文字列が「バイト単位の parse しかしてくれないプログラムからどう見えるか」を調べるのに便利かもしれません。<br><br>（例）<br>C:\某プロジェクト\システム構成<br>↓<br>C:\・^・v・・・W・F・N・g\・V・X・e・・・\・・<br>（※実際は \x80 に置き換えるんですが、IE だと  とか表示されて見にくいのでここでは中点にしています。）<br><br>use strict;<br>use warnings;<br>use Win32::Clipboard;<br><br># 選択状態を取得<br>my $is_text_selected = IsTextSelected();<br>exit 0 unless $is_text_selected;&#9;# 未選択時は終了<br><br># 選択文字列の取得<br>my $seltext = GetSelectedString();<br><br># 7-bit ASCII 以外の文字を \x80 に置換<br>$seltext =~ tr/\x81-\xff/\x80/;<br><br># 置換後文字列の出力<br>if ($is_text_selected == 2) {<br>&#9;# 矩形選択時→矩形貼り付け<br>&#9;Win32::Clipboard::Set($seltext);<br>&#9;PasteBox();<br>}<br>else {<br>&#9;# 通常選択時→挿入<br>&#9;InsText($seltext);<br>}<br><br>#...............................................................................<br></div></section>
    </li></ul></body></html>